home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed44a.d64 / add 8 to 10 t (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  179 lines
  1. 50 POKE53280,0:POKE53281,0:POKE53272,23:X=1:Y=1:K=0:W=0:C=0:R=0
  2. 100 PRINT"[147][155]            [215][200][195][160][197]NTERPRISES            ":GOSUB290:GOSUB240
  3. 105 PRINT"[159]                                        [146]";
  4. 110 PRINT"                                        [146]";
  5. 115 PRINT"           [200][197][204][197][206]'[211] [194][193][211][201][195] [205][193][212][200]           [146]";
  6. 120 PRINT"[159]                                        [146]";:GOSUB290:GOSUB240
  7. 125 PRINT"            [193][196][196][201][212][201][207][206] [212][197][211][212] 11            [146]";:GOSUB290:GOSUB240
  8. 130 PRINT"[159]                  WITH                  [146]";
  9. 135 PRINT"          NUMBERS FROM 8 TO 10          [146]";
  10. 140 PRINT"[159]                                        [146]";
  11. 145 PRINT"                                        [146]"
  12. 150 GOSUB780
  13. 155 PRINT"[147]":GOSUB291
  14. 160 PRINT"[147][153] [201]N THIS UNIT WE [212][197][211][212] ADDITION SKILLS
  15. 162 [153]" WITH NUMBERS FROM 8PRINT TO 10WAIT."
  16. 164 [153]" (null)OU HAVE ONLY (null)(null)VAL CHANCE TO ANSWER      EACH QUESTION
  17. 166 PRINT" [201]F YOU MISS IT, THAT'S A [150][194][204][207][207][208][197][210][153].
  18. 168 [153]" (null)OU WILL BE PLAYING AGAINST THE CLOCK   SO DON'T WASTE ANY TIME."
  19. 170 [141]292:[141]460
  20. 175 [153]"LOAD":[141]291
  21. 180 [153]"LOADPRINT (null)HAT IS YOUR NAME?":[141]260
  22. 182 [133] N$
  23. 184 [153]"LOAD ATNND AWAY WE GO, "N$
  24. 185 [141]291:[141]200:[141]290
  25. 190 [153]"LOAD":[141]291
  26. 195 TI$[178]"000000":[137]500
  27. 200 [143] <YES> SOUND
  28. 202 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  29. 204 [151]54296,15:[151]54277,42:[151]54278,250
  30. 206 [151]54276,23:[151]54273,23:[151]54272,191
  31. 208 [129]TM[178]1[164]150:[130]:[151]54276,32:[129]TM[178]1[164]250:[130]
  32. 210 [151]54296,0:[142]
  33. 220 [143] <NO> SOUND
  34. 222 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  35. 224 [151]54296,15:[151]54277,18:[151]54278,242
  36. 226 [151]54276,33:[151]54273,4:[151]54272,48
  37. 228 [129]TM[178]1[164]300:[130]:[151]54276,32:[129]TM[178]1[164]400:[130]
  38. 230 [151]54296,0:[142]
  39. 240 [143] <BLIP> SOUND
  40. 242 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  41. 244 [151]54296,6:[151]54277,42:[151]54278,250
  42. 246 [151]54276,23:[151]54273,23:[151]54272,191
  43. 248 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130]
  44. 250 [151]54296,0:[142]
  45. 260 [143] <DING> SOUND
  46. 262 SS[178]54272:[151]54296,15:[151]SS,50:[151]SS[170]1,35:[151]SS[170]2,0:[151]SS[170]3,8:[151]SS[170]5,0
  47. 264 [151]SS[170]6,10[172]16[170]9:[151]SS[170]4,14:[151]SS[170]4,65:[129]QQ[178]1[164]20:[151]SS[170]4,64
  48. 266 [142]
  49. 270 [143] <VERY WRONG> SOUND
  50. 272 SS[178]54272:[151]54296,15:[151]SS,32:[151]SS[170]1,3:[151]SS[170]2,128:[151]SS[170]3,13
  51. 274 [151]SS[170]5,4[172]16[170]0:[151]SS[170]6,10[172]16[170]8
  52. 276 [151]SS[170]24,15:[151]SS[170]4,65:[129]QQ[178]1[164]500:[130]:[151]SS[170]4,64:[142]
  53. 290 [129]TM[178]1[164]600:[130]:[142]
  54. 291 [129]TM[178]1[164]1000:[130]:[142]
  55. 292 [129]TM[178]1[164]2000:[130]:[142]
  56. 293 [129]TM[178]1[164]3000:[130]:[142]
  57. 300 [153]"LOAD":[141]290
  58. 302 [153]"LISTATNDD 8-10 (null)CLR"[163]13)""N$[163]32)"LISTRIGHT$TEM:"Y
  59. 305 [142]
  60. 310 [153]"OPEN            ";A$"+OPEN";B$"="Z$
  61. 350 [143] TI$="000000"
  62. 355 N[178]TI[173]60
  63. 360 N[178][181](N[170].5)
  64. 365 [153]"CONT";N"SECONDSONONONONONONONONONONONONONONONON"
  65. 370 [142]
  66. 400 [143] CORRECT
  67. 402 [153]"PRINT                   (null)VAL(null)                  WAIT":[141]200:[141]292
  68. 404 [153]"ONON                                        "
  69. 410 [142]
  70. 420 [151]53280,2:[141]220:[141]291
  71. 423 [153]"DEF                   (null)(null)!                  WAIT":[141]292
  72. 425 [153]"ONON                                        ONON"
  73. 440 [153]"LOAD":[141]290:[151]53280,13
  74. 445 [153]"      >>>>>CLOSECLOSE PRINT";A$" + PRINT";B$" =PRINT ";C$"   <<<<<"
  75. 450 [141]260:[141]293:[141]460:[151]53280,0:[142]
  76. 460 [141]291:[141]260
  77. 462 [153]"CONT      >>>>>    (null)(null)ATNLENVALCLOSEPEEKATN(null)    <<<<<       WAIT"
  78. 464 [161]R$:[139]R$[179][177][199](32)[167]464
  79. 466 [153]"ONON                                        ":[142]
  80. 500 [129]G[178]1[164]25
  81. 505 [141]300:[141]350:Y[178]Y[170]1:P[178]0:[151]53280,0
  82. 510 [135]A$,B$,C$
  83. 520 [153]"              ";A$" + ";B$" = ":[141]260
  84. 530 [153]"SYSON ";:[133]Z$
  85. 540 [139]Z$[178]C$[167][141]400:C[178]C[170]1:[137]550
  86. 545 [141]420:W[178]W[170]1:
  87. 550 [130] G
  88. 599 :
  89. 600 [153]"LOAD       ATNSTR$STR$ 8-10 (null)    (null)LEN(null)(null)VALCLOSEPEEK(null)ATN(null)STR$        WAIT":[141]291
  90. 602 [153]"          CLR"N$
  91. 605 L[178]C[172]4:L[178][181](L[170].5)
  92. 610 [153]"SYS          (null)OUR (null)LEN(null)(null)VAL ...";L"%":[141]260:[141]293
  93. 613 [153]"SYS          (null)OUR TIME ...."N"SECONDS":[141]260:[141]293
  94. 615 [153]"PRINT          LENORRECT ......"C:[141]200:[141]292
  95. 620 [153]"DEF          PEEKLOOPERS ....."W:[141]270:[141]292
  96. 622 [139] N[178][179]160[167][153]"          (null)OU WERE ASCATN(null)(null)":[141]260:[141]292:[137]625
  97. 623 [139]N[178][179]250[167][153]"SYS          LENAN YOU GO FASTER?":[141]260:[141]292:[137]625
  98. 624 [153]"SYS          RIGHT$'M SURE YOU CAN GO FASTER.":[137]625
  99. 625 [139]C[178]25[167][153]"              VAL(null)LENVAL(null)(null)VAL(null)(null) (null)(null)(null)(null)!           WAIT"
  100. 630 [139]C[178]25[167][141]200:[141]292:[137]660
  101. 635 [139]C[178][177]22[167][153]"               CHR$OOD (null)ORK WAIT"
  102. 640 [139]C[178][177]22[167][141]200:[141]292:[137]660
  103. 650 [141]292:[153]" >>>>> (null)OU NEED MORE PRACTICE.":[141]292
  104. 655 [153]" >>>>> (null)LEASE PLAY THIS GAME AGAIN."
  105. 660 [141]460
  106. 672 [153]"LOAD  (null)RESS  (null) WAIT TO REPEAT ATNSTR$STR$ 8 TO 10  (null)
  107. 674 PRINT"  [208]RESS  [199] [146] TO GO TO THE NEXT GAME.
  108. 676 [153]"  (null)RESS  (null) WAIT TO RETURN TO DISK (null)VAL(null)(null)
  109. 678 GETR$:IFR$<>"R"ANDR$<>"[210]"ANDR$<>"M"ANDR$<>"[205]"ANDR$<>"[199]"ANDR$<>"G"THEN678
  110. 680 IFR$="R"THEN RESTORE:Y=1:GOTO500
  111. 682 IFR$="[210]"THEN RESTORE:Y=1:GOTO500
  112. 684 IFR$="G"THEN RESTORE:GOTO800
  113. 686 IFR$="[199]"THEN RESTORE:GOTO800
  114. 688 RESTORE:PRINT"[147] [210]ETURNING TO THE DISK MENU
  115. 690 [147]"MENU",8
  116. 692 [138]
  117. 694 [128]
  118. 699 :
  119. 700 [153]"LOADOPEN         (null)VALATNLENLEFT$VAL(null)CLOSERIGHT$(null)ASC(null)(null)(null)ATN(null)RIGHT$(null)(null)
  120. 702 PRINT" [212]HIS IS THE ELEVENTH OF A SET OF
  121. 704 [153]" ADDITION EXERCISES DESIGNED
  122. 706 PRINT" SPECIFICALLY FOR CHILDREN CLASSED       AS INTELLECTUALLY CHALLENGED.
  123. 710 [153]" VALACH PAIR OF EXERCIES USES A SET
  124. 712 PRINT" RANGE OF NUMBERS.
  125. 714 [153]" (null)HE FIRST EXERCISE ((null)) IN A PAIR
  126. 716 PRINT" PROVIVDES A MEASURED [208][210][193][195][212][201][195][197].
  127. 718 [153]" (null)HE SECOND EXERCISE ((null)) PROVIDES A      TIMED AND MEASURED (null)VAL(null)(null).
  128. 720 PRINT" [212]HIS IS THE [212][197][211][212] EXERCISE."
  129. 722 GOSUB460
  130. 730 PRINT"[147][159] [210]OLISON'S '[212][210][201][193][196] PRINCIPLE' IS USED
  131. 740 [153]" TO SELECT THE NUMBER COMBINATIONS.
  132. 750 PRINT" [201]T WOULD BE A GOOD IDEA TO RECORD
  133. 755 [153]" THE PUPIL'S PERFOMANCE ON EACH UNIT."
  134. 760 [153]" (null)HESE MATH EXERCISES ARE DEDICATED TO
  135. 765 PRINT" [200]ELEN [200]ORN, THE FORMER PRINCIPAL OF
  136. 770 [153]" (null)YNDWOOD (null)UBLIC (null)CHOOL, (null)ISSISSAUGA,    (null)NTARIO, LENANADA.     1993"
  137. 775 [141]460:[142]
  138. 780 [141]291:[141]260
  139. 782 [153]"CONT         RIGHT$NSTRUCTIONS?  (null)/(null)       POKE(null)"
  140. 784 [161]R$:[139]R$[179][177]"(null)"[175]R$[179][177]"Y"[175]R$[179][177]"(null)"[175]R$[179][177]"N"[175]R$[179][177]"T"[175]R$[179][177]"(null)"[167]784
  141. 786 [139]R$[178]"T"[167]700
  142. 788 [139]R$[178]"(null)"[167]700
  143. 790 [139]R$[178]"(null)"[167]160
  144. 792 [139]R$[178]"Y"[167]160
  145. 794 [153]"ONON                                        ":[137]180
  146. 800 [153]"LOAD GOING TO  ADD 6 TO 10  P "
  147. 805 [153]"STOPLOAD"[199](34)"ADD 6 TO 10  P"[199](34)",8:"
  148. 810 [151]198,0:[151]631,19:[151]632,131:[151]198,2
  149. 815 [128]
  150. 899 :
  151. 1000 [131] "8","8","16"
  152. 1005 [131] "9","9","18"
  153. 1010 [131] "10","10","20"
  154. 1015 [131] "9","8","17"
  155. 1020 [131] "10","9","19"
  156. 1025 [131] "9","8","17"
  157. 1030 [131] "9","10","19"
  158. 1035 [131] "8","10","18"
  159. 1040 [131] "9","8","17"
  160. 1045 [131] "8","9","17"
  161. 1050 [131] "8","10","18"
  162. 1055 [131] "10","9","19"
  163. 1060 [131] "9","9","18"
  164. 1065 [131] "9","8","17"
  165. 1070 [131] "10","8","18"
  166. 1075 [131] "8","8","16"
  167. 1080 [131] "9","8","17"
  168. 1085 [131] "8","9","17"
  169. 1090 [131] "10","9","19"
  170. 1095 [131] "8","10","18"
  171. 1100 [131] "8","9","17"
  172. 1105 [131] "9","8","17"
  173. 1110 [131] "10","9","19"
  174. 1115 [131] "9","9","18"
  175. 1120 [131] "8","9","17"
  176. 1999 :
  177. 2000 [143] WHC 93 03 05<>93 07 07
  178. 2010 [143] DEDICATED TO HELEN HORN 1993
  179.